home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 June / Ahoy_Magazine_88-06_1988_Double_L.d64 / RAM Reader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  343b  |  14 lines
  1. 10 sa=828
  2. 20 fori=satosa+35:reada:pokei,a:ck=ck+a:next
  3. 30 if ck<>4252 then print"error in data":stop
  4. 40 poke786,sa/256:poke785,sa-(peek(786)*256)
  5. 45 goto 100
  6. 50 data 32,247,183,165,100,133,252,165
  7. 60 data 101,133,251,160,0,120,165,1
  8. 70 data 41,252,133,1,177,251,168,165
  9. 80 data 1,9,3,133,1,88,169,0
  10. 90 data 32,145,179,96
  11. 100 poke 63000,1
  12. 110 print"[147]rom=";peek(63000)
  13. 120 print"ram=";usr(63000)
  14.